home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2004 E…tra 100 Bedste Programmer / K-CD_2004_Ekstra_100_Gratis_Programmer.iso / Windows / X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSO2003 OTL Wunderbar.xpl < prev    next >
Encoding:
XSetup plugin  |  2004-02-05  |  1.7 KB  |  62 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office 2003\Outlook"
  5. "NAME"="Startup Display"
  6. "VERSION"="1.00"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Start with email folders display (Default)"
  9. "TEXT 2"="Start with folder list display"
  10. "TEXT 3"="Start with shortcut list display"
  11. "DESCRIPTION 1"="By default, Outlook start with the email folder displays on its left-hand display. "
  12. "DESCRIPTION 2"="With this setting, you can change this so it automatically displays your shortcuts or the folder list when started."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All rights reserved."
  16. "COMMENT 1"="http://www.slipstick.com/outlook/ol2003/interface.htm"
  17.  
  18.  
  19. sPCheck="HKCU\Software\Microsoft\Office\11.0\Outlook\"
  20. sV1="HKCU\Software\Microsoft\Office\11.0\Outlook\Options\WunderBar\BootModule" 
  21.  
  22.  
  23. Sub Plugin_Initialize 
  24. if RegPathExists(sPCheck) then
  25.    i=RegReadValue(sV1)
  26.    if i=0 or IsEmpty(i) then
  27.       SetUIElement 1,true
  28.    else
  29.       if i=5 then SetUIElement 2,true
  30.       if i=6 then SetUIElement 3,true
  31.    end if
  32. else
  33.    Disable()
  34. end if
  35. END SUB
  36.  
  37. 'Called when the Plugin should validate the Data the user has entered
  38. SUB Plugin_CheckData(ElementIndex)
  39. END SUB
  40.  
  41. 'Called when the Plugin should apply the changes
  42. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  43.  b=GetUIElement(1)
  44.  if b=true then i=0
  45.  
  46.  b=GetUIElement(2)
  47.  if b=true then i=5
  48.  
  49.  b=GetUIElement(3)
  50.  if b=true then i=6
  51.  
  52.  if i>0 then
  53.     Call RegWriteValue(sV1,i,2)
  54.  else
  55.     If RegValueExists(sV1) then Call RegDeleteValue(sV1)
  56.  end if
  57. END SUB
  58.  
  59. 'Called when the Plugin is about to be removed from memory
  60. SUB Plugin_Terminate
  61. END SUB
  62.